/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / tm / tmh-comp.elc.z / tmh-comp.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 35 3a 33 33 20 31 | 39 39 38 0a 3b 3b 3b 20 |:55:33 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 74 6d 2f 74 |s-20.3/l|isp/tm/t|
|000000a0| 6d 68 2d 63 6f 6d 70 2e | 65 6c 0a 3b 3b 3b 20 65 |mh-comp.|el.;;; e|
|000000b0| 6d 61 63 73 20 76 65 72 | 73 69 6f 6e 20 32 30 2e |macs ver|sion 20.|
|000000c0| 34 20 22 45 6d 65 72 61 | 6c 64 22 20 58 45 6d 61 |4 "Emera|ld" XEma|
|000000d0| 63 73 20 20 4c 75 63 69 | 64 2e 0a 3b 3b 3b 20 62 |cs  Luci|d..;;; b|
|000000e0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000f0| 32 2e 32 35 20 58 45 6d | 61 63 73 3b 20 32 32 2d |2.25 XEm|acs; 22-|
|00000100| 4d 61 72 2d 39 36 2e 0a | 3b 3b 3b 20 6f 70 74 69 |Mar-96..|;;; opti|
|00000110| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|00000120| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|00000130| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|00000140| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000150| 20 45 6d 61 63 73 20 31 | 39 2e 0a 0a 28 69 66 20 | Emacs 1|9...(if |
|00000160| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000170| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000180| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000190| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|000001a0| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|000001b0| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |..     (|string-l|
|000001c0| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|000001d0| 6f 6e 20 22 32 30 22 29 | 29 29 0a 20 20 20 20 28 |on "20")|)).    (|
|000001e0| 65 72 72 6f 72 20 22 60 | 74 6d 68 2d 63 6f 6d 70 |error "`|tmh-comp|
|000001f0| 2e 65 6c 27 20 77 61 73 | 20 63 6f 6d 70 69 6c 65 |.el' was| compile|
|00000200| 64 20 66 6f 72 20 45 6d | 61 63 73 20 32 30 22 29 |d for Em|acs 20")|
|00000210| 29 0a 0a 28 6f 72 20 28 | 62 6f 75 6e 64 70 20 27 |)..(or (|boundp '|
|00000220| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00000230| 74 29 20 28 73 65 74 71 | 20 63 75 72 72 65 6e 74 |t) (setq| current|
|00000240| 2d 6c 6f 61 64 2d 6c 69 | 73 74 20 6e 69 6c 29 29 |-load-li|st nil))|
|00000250| 0a 0a 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |...(byte|-code ".|
|00000260| c1 21 88 c0 c2 21 87 22 | 20 5b 72 65 71 75 69 72 |.!...!."| [requir|
|00000270| 65 20 6d 68 2d 63 6f 6d | 70 20 74 6d 2d 65 64 69 |e mh-com|p tm-edi|
|00000280| 74 5d 20 32 29 0a 23 40 | 32 31 34 20 4e 61 6d 65 |t] 2).#@|214 Name|
|00000290| 20 6f 66 20 66 69 6c 65 | 20 74 6f 20 62 65 20 75 | of file| to be u|
|000002a0| 73 65 64 20 61 73 20 61 | 20 73 6b 65 6c 65 74 6f |sed as a| skeleto|
|000002b0| 6e 20 66 6f 72 20 66 6f | 72 77 61 72 64 69 6e 67 |n for fo|rwarding|
|000002c0| 20 6d 65 73 73 61 67 65 | 73 2e 0a 44 65 66 61 75 | message|s..Defau|
|000002d0| 6c 74 20 69 73 20 22 66 | 6f 72 77 63 6f 6d 70 73 |lt is "f|orwcomps|
|000002e0| 22 2e 20 20 49 66 20 6e | 6f 74 20 61 20 63 6f 6d |".  If n|ot a com|
|000002f0| 70 6c 65 74 65 20 70 61 | 74 68 20 6e 61 6d 65 2c |plete pa|th name,|
|00000300| 20 74 68 65 20 66 69 6c | 65 0a 69 73 20 73 65 61 | the fil|e.is sea|
|00000310| 72 63 68 65 64 20 66 6f | 72 20 66 69 72 73 74 20 |rched fo|r first |
|00000320| 69 6e 20 74 68 65 20 75 | 73 65 72 27 73 20 4d 48 |in the u|ser's MH|
|00000330| 20 64 69 72 65 63 74 6f | 72 79 2c 20 74 68 65 6e | directo|ry, then|
|00000340| 20 69 6e 20 74 68 65 0a | 73 79 73 74 65 6d 20 4d | in the.|system M|
|00000350| 48 20 6c 69 62 20 64 69 | 72 65 63 74 6f 72 79 2e |H lib di|rectory.|
|00000360| 1f 0a 28 64 65 66 76 61 | 72 20 74 6d 2d 6d 68 2d |..(defva|r tm-mh-|
|00000370| 65 2f 66 6f 72 77 63 6f | 6d 70 73 20 22 66 6f 72 |e/forwco|mps "for|
|00000380| 77 63 6f 6d 70 73 22 20 | 28 23 24 20 2e 20 36 35 |wcomps" |(#$ . 65|
|00000390| 32 29 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |2)).(byt|e-code "|
|000003a0| c0 c1 21 ac 82 c2 11 c1 | 0b 42 13 c0 87 22 20 5b |..!.....|.B..." [|
|000003b0| 62 6f 75 6e 64 70 20 74 | 6d 2d 6d 68 2d 65 2f 6d |boundp t|m-mh-e/m|
|000003c0| 65 73 73 61 67 65 2d 79 | 61 6e 6b 2d 66 75 6e 63 |essage-y|ank-func|
|000003d0| 74 69 6f 6e 20 6d 68 2d | 79 61 6e 6b 2d 63 75 72 |tion mh-|yank-cur|
|000003e0| 2d 6d 73 67 20 63 75 72 | 72 65 6e 74 2d 6c 6f 61 |-msg cur|rent-loa|
|000003f0| 64 2d 6c 69 73 74 5d 20 | 32 29 0a 28 64 65 66 61 |d-list] |2).(defa|
|00000400| 6c 69 61 73 20 27 74 6d | 2d 6d 68 2d 65 3a 3a 6d |lias 'tm|-mh-e::m|
|00000410| 61 6b 65 2d 6d 65 73 73 | 61 67 65 20 23 5b 28 66 |ake-mess|age #[(f|
|00000420| 6f 6c 64 65 72 20 6e 75 | 6d 62 65 72 29 20 22 c0 |older nu|mber) ".|
|00000430| 09 5c 6e 5c 22 87 22 20 | 5b 76 65 63 74 6f 72 20 |.\n\"." |[vector |
|00000440| 66 6f 6c 64 65 72 20 6e | 75 6d 62 65 72 5d 20 33 |folder n|umber] 3|
|00000450| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 74 6d |]).(defa|lias 'tm|
|00000460| 2d 6d 68 2d 65 3a 3a 6d | 65 73 73 61 67 65 2f 66 |-mh-e::m|essage/f|
|00000470| 6f 6c 64 65 72 20 23 5b | 28 6d 65 73 73 61 67 65 |older #[|(message|
|00000480| 29 20 22 08 c1 9c 87 22 | 20 5b 6d 65 73 73 61 67 |) "...."| [messag|
|00000490| 65 20 30 5d 20 32 5d 29 | 0a 28 64 65 66 61 6c 69 |e 0] 2])|.(defali|
|000004a0| 61 73 20 27 74 6d 2d 6d | 68 2d 65 3a 3a 6d 65 73 |as 'tm-m|h-e::mes|
|000004b0| 73 61 67 65 2f 6e 75 6d | 62 65 72 20 23 5b 28 6d |sage/num|ber #[(m|
|000004c0| 65 73 73 61 67 65 29 20 | 22 08 c1 9c 87 22 20 5b |essage) |"...." [|
|000004d0| 6d 65 73 73 61 67 65 20 | 31 5d 20 32 5d 29 0a 28 |message |1] 2]).(|
|000004e0| 64 65 66 61 6c 69 61 73 | 20 27 74 6d 2d 6d 68 2d |defalias| 'tm-mh-|
|000004f0| 65 3a 3a 6d 65 73 73 61 | 67 65 2f 66 69 6c 65 2d |e::messa|ge/file-|
|00000500| 6e 61 6d 65 20 23 5b 28 | 6d 65 73 73 61 67 65 29 |name #[(|message)|
|00000510| 20 22 c0 c1 5c 6e 21 c3 | c4 5c 6e 21 21 5c 22 87 | "..\n!.|.\n!!\".|
|00000520| 22 20 5b 65 78 70 61 6e | 64 2d 66 69 6c 65 2d 6e |" [expan|d-file-n|
|00000530| 61 6d 65 20 74 6d 2d 6d | 68 2d 65 3a 3a 6d 65 73 |ame tm-m|h-e::mes|
|00000540| 73 61 67 65 2f 6e 75 6d | 62 65 72 20 6d 65 73 73 |sage/num|ber mess|
|00000550| 61 67 65 20 6d 68 2d 65 | 78 70 61 6e 64 2d 66 69 |age mh-e|xpand-fi|
|00000560| 6c 65 2d 6e 61 6d 65 20 | 74 6d 2d 6d 68 2d 65 3a |le-name |tm-mh-e:|
|00000570| 3a 6d 65 73 73 61 67 65 | 2f 66 6f 6c 64 65 72 5d |:message|/folder]|
|00000580| 20 35 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 5]).(de|falias '|
|00000590| 74 6d 2d 6d 68 2d 65 2f | 70 72 6f 6d 70 74 2d 66 |tm-mh-e/|prompt-f|
|000005a0| 6f 72 2d 6d 65 73 73 61 | 67 65 20 23 5b 28 70 72 |or-messa|ge #[(pr|
|000005b0| 6f 6d 70 74 20 66 6f 6c | 64 65 72 20 26 6f 70 74 |ompt fol|der &opt|
|000005c0| 69 6f 6e 61 6c 20 64 65 | 66 61 75 6c 74 29 20 22 |ional de|fault) "|
|000005d0| c0 c1 5c 6e 21 c3 c4 23 | 1d c6 5c 6e 21 89 1e 07 |..\n!..#|..\n!...|
|000005e0| ad 99 8a 0e 07 71 88 c6 | 0e 08 21 1e 09 ca 0e 09 |.....q..|..!.....|
|000005f0| 21 89 1e 0b ad 84 cc 0e | 0b 21 2b 89 1e 0d ab 87 |!.......|.!+.....|
|00000600| ce c4 0e 0d 5c 22 ac be | 5c 6e 0e 0f 98 ab 8a 0e |....\"..|\n......|
|00000610| 10 ab 86 d1 0e 10 21 aa | ac 8a c3 1e 12 d3 c3 d4 |......!.|........|
|00000620| 5c 6e d5 24 d6 55 ab 9b | 0e 17 71 ab 96 d8 20 89 |\n.$.U..|..q... .|
|00000630| 16 12 ab 8f ce c4 0e 12 | 5c 22 ab 88 0e 12 d6 89 |........|\"......|
|00000640| 95 4f aa 82 0d 40 2a 16 | 0d d9 0e 1a d6 1e 1b dc |.O...@*.|........|
|00000650| dd 0d 5c 22 29 c3 89 0e | 0d 25 2b 87 22 20 5b 64 |..\")...|.%+." [d|
|00000660| 69 72 65 63 74 6f 72 79 | 2d 66 69 6c 65 73 20 6d |irectory|-files m|
|00000670| 68 2d 65 78 70 61 6e 64 | 2d 66 69 6c 65 2d 6e 61 |h-expand|-file-na|
|00000680| 6d 65 20 66 6f 6c 64 65 | 72 20 6e 69 6c 20 22 5e |me folde|r nil "^|
|00000690| 5b 30 2d 39 5d 2b 24 22 | 20 66 69 6c 65 73 20 67 |[0-9]+$"| files g|
|000006a0| 65 74 2d 62 75 66 66 65 | 72 20 66 6f 6c 64 65 72 |et-buffe|r folder|
|000006b0| 2d 62 75 66 20 6d 68 2d | 73 68 6f 77 2d 62 75 66 |-buf mh-|show-buf|
|000006c0| 66 65 72 20 73 68 6f 77 | 2d 62 75 66 66 65 72 20 |fer show|-buffer |
|000006d0| 62 75 66 66 65 72 2d 66 | 69 6c 65 2d 6e 61 6d 65 |buffer-f|ile-name|
|000006e0| 20 73 68 6f 77 2d 62 75 | 66 66 65 72 2d 66 69 6c | show-bu|ffer-fil|
|000006f0| 65 2d 6e 61 6d 65 20 66 | 69 6c 65 2d 6e 61 6d 65 |e-name f|ile-name|
|00000700| 2d 6e 6f 6e 64 69 72 65 | 63 74 6f 72 79 20 64 65 |-nondire|ctory de|
|00000710| 66 61 75 6c 74 20 73 74 | 72 69 6e 67 2d 6d 61 74 |fault st|ring-mat|
|00000720| 63 68 20 6d 68 2d 73 65 | 6e 74 2d 66 72 6f 6d 2d |ch mh-se|nt-from-|
|00000730| 66 6f 6c 64 65 72 20 6d | 68 2d 73 65 6e 74 2d 66 |folder m|h-sent-f|
|00000740| 72 6f 6d 2d 6d 73 67 20 | 69 6e 74 2d 74 6f 2d 73 |rom-msg |int-to-s|
|00000750| 74 72 69 6e 67 20 63 75 | 72 2d 6d 73 67 20 6d 68 |tring cu|r-msg mh|
|00000760| 2d 65 78 65 63 2d 63 6d | 64 2d 71 75 69 65 74 20 |-exec-cm|d-quiet |
|00000770| 22 70 69 63 6b 22 20 22 | 63 75 72 22 20 30 20 6d |"pick" "|cur" 0 m|
|00000780| 68 2d 74 65 6d 70 2d 62 | 75 66 66 65 72 20 62 75 |h-temp-b|uffer bu|
|00000790| 66 66 65 72 2d 73 74 72 | 69 6e 67 20 63 6f 6d 70 |ffer-str|ing comp|
|000007a0| 6c 65 74 69 6e 67 2d 72 | 65 61 64 20 70 72 6f 6d |leting-r|ead prom|
|000007b0| 70 74 20 69 20 6d 61 70 | 63 61 72 20 23 5b 28 66 |pt i map|car #[(f|
|000007c0| 69 6c 65 29 20 22 08 54 | 10 09 08 44 87 22 20 5b |ile) ".T|...D." [|
|000007d0| 69 20 66 69 6c 65 5d 20 | 32 5d 5d 20 37 5d 29 0a |i file] |2]] 7]).|
|000007e0| 28 64 65 66 61 6c 69 61 | 73 20 27 74 6d 2d 6d 68 |(defalia|s 'tm-mh|
|000007f0| 2d 65 2f 71 75 65 72 79 | 2d 6d 65 73 73 61 67 65 |-e/query|-message|
|00000800| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 6d 65 | #[(&opt|ional me|
|00000810| 73 73 61 67 65 29 20 22 | c0 89 19 1a 0b ab 88 c4 |ssage) "|........|
|00000820| 0b 21 12 c5 0b 21 11 5c | 6e 3b ac 96 c6 c7 0e 08 |.!...!.\|n;......|
|00000830| 3b ab 8b c9 ca 0e 08 5c | 22 ab 84 0e 08 aa 81 cb |;......\|".......|
|00000840| c0 23 12 09 a7 ab 85 cc | 09 21 aa 84 cd ce 5c 6e |.#......|.!....\n|
|00000850| 5c 22 11 cf 5c 6e 09 5c | 22 2a 87 22 20 5b 6e 69 |\"..\n.\|"*." [ni|
|00000860| 6c 20 6e 75 6d 62 65 72 | 20 66 6f 6c 64 65 72 20 |l number| folder |
|00000870| 6d 65 73 73 61 67 65 20 | 74 6d 2d 6d 68 2d 65 3a |message |tm-mh-e:|
|00000880| 3a 6d 65 73 73 61 67 65 | 2f 66 6f 6c 64 65 72 20 |:message|/folder |
|00000890| 74 6d 2d 6d 68 2d 65 3a | 3a 6d 65 73 73 61 67 65 |tm-mh-e:|:message|
|000008a0| 2f 6e 75 6d 62 65 72 20 | 6d 68 2d 70 72 6f 6d 70 |/number |mh-promp|
|000008b0| 74 2d 66 6f 72 2d 66 6f | 6c 64 65 72 20 22 4d 65 |t-for-fo|lder "Me|
|000008c0| 73 73 61 67 65 20 66 72 | 6f 6d 22 20 6d 68 2d 73 |ssage fr|om" mh-s|
|000008d0| 65 6e 74 2d 66 72 6f 6d | 2d 66 6f 6c 64 65 72 20 |ent-from|-folder |
|000008e0| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 5e 5c |string-m|atch "^\|
|000008f0| 5c 2b 22 20 22 2b 69 6e | 62 6f 78 22 20 6e 75 6d |\+" "+in|box" num|
|00000900| 62 65 72 2d 74 6f 2d 73 | 74 72 69 6e 67 20 74 6d |ber-to-s|tring tm|
|00000910| 2d 6d 68 2d 65 2f 70 72 | 6f 6d 70 74 2d 66 6f 72 |-mh-e/pr|ompt-for|
|00000920| 2d 6d 65 73 73 61 67 65 | 20 22 4d 65 73 73 61 67 |-message| "Messag|
|00000930| 65 20 6e 75 6d 62 65 72 | 3a 20 22 20 74 6d 2d 6d |e number|: " tm-m|
|00000940| 68 2d 65 3a 3a 6d 61 6b | 65 2d 6d 65 73 73 61 67 |h-e::mak|e-messag|
|00000950| 65 5d 20 35 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |e] 5]).(|defalias|
|00000960| 20 27 74 6d 2d 6d 68 2d | 65 2f 69 6e 73 65 72 74 | 'tm-mh-|e/insert|
|00000970| 2d 6d 65 73 73 61 67 65 | 20 23 5b 28 26 6f 70 74 |-message| #[(&opt|
|00000980| 69 6f 6e 61 6c 20 6d 65 | 73 73 61 67 65 29 20 22 |ional me|ssage) "|
|00000990| 08 3b ad 82 09 a7 3f ad | b3 c2 c3 21 ab 8d c4 08 |.;....?.|...!....|
|000009a0| 21 ab 88 c5 0b 21 ab 83 | 0b aa a1 c2 c6 21 ad 9c |!....!..|.....!..|
|000009b0| c5 0e 06 21 ad 96 c4 08 | 21 ad 91 8a 0e 06 71 88 |...!....|!.....q.|
|000009c0| 0e 07 c8 61 ab 84 0e 09 | aa 81 70 29 89 1e 5c 6e |...a....|..p)..\n|
|000009d0| ac 88 cb cc 08 09 5c 22 | 21 aa 87 cd 0e 5c 6e 21 |......\"|!....\n!|
|000009e0| 88 ce 20 29 87 22 20 5b | 6d 68 2d 73 65 6e 74 2d |.. )." [|mh-sent-|
|000009f0| 66 72 6f 6d 2d 66 6f 6c | 64 65 72 20 6d 68 2d 73 |from-fol|der mh-s|
|00000a00| 65 6e 74 2d 66 72 6f 6d | 2d 6d 73 67 20 62 6f 75 |ent-from|-msg bou|
|00000a10| 6e 64 70 20 67 6e 75 73 | 2d 6f 72 69 67 69 6e 61 |ndp gnus|-origina|
|00000a20| 6c 2d 61 72 74 69 63 6c | 65 2d 62 75 66 66 65 72 |l-articl|e-buffer|
|00000a30| 20 62 75 66 66 65 72 70 | 20 67 65 74 2d 62 75 66 | bufferp| get-buf|
|00000a40| 66 65 72 20 67 6e 75 73 | 2d 61 72 74 69 63 6c 65 |fer gnus|-article|
|00000a50| 2d 62 75 66 66 65 72 20 | 6d 61 6a 6f 72 2d 6d 6f |-buffer |major-mo|
|00000a60| 64 65 20 6d 69 6d 65 2f | 76 69 65 77 65 72 2d 6d |de mime/|viewer-m|
|00000a70| 6f 64 65 20 6d 69 6d 65 | 3a 3a 70 72 65 76 69 65 |ode mime|::previe|
|00000a80| 77 2f 61 72 74 69 63 6c | 65 2d 62 75 66 66 65 72 |w/articl|e-buffer|
|00000a90| 20 61 72 74 69 63 6c 65 | 2d 62 75 66 66 65 72 20 | article|-buffer |
|00000aa0| 74 6d 2d 6d 68 2d 65 2f | 69 6e 73 65 72 74 2d 6d |tm-mh-e/|insert-m|
|00000ab0| 61 69 6c 20 74 6d 2d 6d | 68 2d 65 3a 3a 6d 61 6b |ail tm-m|h-e::mak|
|00000ac0| 65 2d 6d 65 73 73 61 67 | 65 20 69 6e 73 65 72 74 |e-messag|e insert|
|00000ad0| 2d 62 75 66 66 65 72 20 | 6d 69 6d 65 2d 65 64 69 |-buffer |mime-edi|
|00000ae0| 74 6f 72 2f 69 6e 73 65 | 72 74 65 64 2d 6d 65 73 |tor/inse|rted-mes|
|00000af0| 73 61 67 65 2d 66 69 6c | 74 65 72 5d 20 35 5d 29 |sage-fil|ter] 5])|
|00000b00| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 74 6d 2d 6d |.(defali|as 'tm-m|
|00000b10| 68 2d 65 2f 69 6e 73 65 | 72 74 2d 6d 61 69 6c 20 |h-e/inse|rt-mail |
|00000b20| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 6d 65 73 |#[(&opti|onal mes|
|00000b30| 73 61 67 65 29 20 22 8a | 8c c0 c1 5c 6e 21 21 1b |sage) ".|...\n!!.|
|00000b40| 60 60 7d 88 c4 0b 21 88 | c5 64 21 88 c6 20 2b 87 |``}...!.|.d!.. +.|
|00000b50| 22 20 5b 74 6d 2d 6d 68 | 2d 65 3a 3a 6d 65 73 73 |" [tm-mh|-e::mess|
|00000b60| 61 67 65 2f 66 69 6c 65 | 2d 6e 61 6d 65 20 74 6d |age/file|-name tm|
|00000b70| 2d 6d 68 2d 65 2f 71 75 | 65 72 79 2d 6d 65 73 73 |-mh-e/qu|ery-mess|
|00000b80| 61 67 65 20 6d 65 73 73 | 61 67 65 20 6d 65 73 73 |age mess|age mess|
|00000b90| 61 67 65 2d 66 69 6c 65 | 20 69 6e 73 65 72 74 2d |age-file| insert-|
|00000ba0| 66 69 6c 65 2d 63 6f 6e | 74 65 6e 74 73 20 70 75 |file-con|tents pu|
|00000bb0| 73 68 2d 6d 61 72 6b 20 | 6d 69 6d 65 2d 65 64 69 |sh-mark |mime-edi|
|00000bc0| 74 6f 72 2f 69 6e 73 65 | 72 74 65 64 2d 6d 65 73 |tor/inse|rted-mes|
|00000bd0| 73 61 67 65 2d 66 69 6c | 74 65 72 5d 20 33 5d 29 |sage-fil|ter] 3])|
|00000be0| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 c2 |.(byte-c|ode "...|
|00000bf0| c3 23 88 c0 c4 c2 c5 23 | 88 c0 c4 c6 c5 23 88 c0 |.#.....#|.....#..|
|00000c00| c7 c2 c8 23 87 22 20 5b | 73 65 74 2d 61 6c 69 73 |...#." [|set-alis|
|00000c10| 74 20 6d 69 6d 65 2d 65 | 64 69 74 6f 72 2f 6d 65 |t mime-e|ditor/me|
|00000c20| 73 73 61 67 65 2d 69 6e | 73 65 72 74 65 72 2d 61 |ssage-in|serter-a|
|00000c30| 6c 69 73 74 20 6d 68 2d | 6c 65 74 74 65 72 2d 6d |list mh-|letter-m|
|00000c40| 6f 64 65 20 74 6d 2d 6d | 68 2d 65 2f 69 6e 73 65 |ode tm-m|h-e/inse|
|00000c50| 72 74 2d 6d 65 73 73 61 | 67 65 20 6d 69 6d 65 2d |rt-messa|ge mime-|
|00000c60| 65 64 69 74 6f 72 2f 6d | 61 69 6c 2d 69 6e 73 65 |editor/m|ail-inse|
|00000c70| 72 74 65 72 2d 61 6c 69 | 73 74 20 74 6d 2d 6d 68 |rter-ali|st tm-mh|
|00000c80| 2d 65 2f 69 6e 73 65 72 | 74 2d 6d 61 69 6c 20 6e |-e/inser|t-mail n|
|00000c90| 65 77 73 2d 72 65 70 6c | 79 2d 6d 6f 64 65 20 6d |ews-repl|y-mode m|
|00000ca0| 69 6d 65 2d 65 64 69 74 | 6f 72 2f 73 70 6c 69 74 |ime-edit|or/split|
|00000cb0| 2d 6d 65 73 73 61 67 65 | 2d 73 65 6e 64 65 72 2d |-message|-sender-|
|00000cc0| 61 6c 69 73 74 20 23 5b | 28 26 6f 70 74 69 6f 6e |alist #[|(&option|
|00000cd0| 61 6c 20 61 72 67 29 20 | 22 c0 65 64 09 c2 c3 25 |al arg) |".ed...%|
|00000ce0| 88 0c ab 9f c5 c6 21 88 | c7 20 88 c8 0e 09 ca cb |......!.|. ......|
|00000cf0| cc cd 0e 0e 09 26 07 88 | 64 62 88 cf d0 21 88 d1 |.....&..|db...!..|
|00000d00| d2 21 87 d3 d4 ca 0e 09 | d5 cc cd d6 d7 0e 0e 09 |.!......|........|
|00000d10| af 06 21 24 87 22 20 5b | 77 72 69 74 65 2d 72 65 |..!$." [|write-re|
|00000d20| 67 69 6f 6e 20 6d 69 6d | 65 2d 65 64 69 74 6f 72 |gion mim|e-editor|
|00000d30| 2f 64 72 61 66 74 2d 66 | 69 6c 65 2d 6e 61 6d 65 |/draft-f|ile-name|
|00000d40| 20 6e 69 6c 20 6e 6f 2d | 6d 65 73 73 61 67 65 20 | nil no-|message |
|00000d50| 61 72 67 20 70 6f 70 2d | 74 6f 2d 62 75 66 66 65 |arg pop-|to-buffe|
|00000d60| 72 20 22 4d 48 20 6d 61 | 69 6c 20 64 65 6c 69 76 |r "MH ma|il deliv|
|00000d70| 65 72 79 22 20 65 72 61 | 73 65 2d 62 75 66 66 65 |ery" era|se-buffe|
|00000d80| 72 20 6d 68 2d 65 78 65 | 63 2d 63 6d 64 2d 6f 75 |r mh-exe|c-cmd-ou|
|00000d90| 74 70 75 74 20 6d 68 2d | 73 65 6e 64 2d 70 72 6f |tput mh-|send-pro|
|00000da0| 67 20 74 20 22 2d 77 61 | 74 63 68 22 20 22 2d 6e |g t "-wa|tch" "-n|
|00000db0| 6f 70 75 73 68 22 20 22 | 2d 6e 6f 64 72 61 66 74 |opush" "|-nodraft|
|00000dc0| 66 6f 6c 64 65 72 22 20 | 6d 68 2d 73 65 6e 64 2d |folder" |mh-send-|
|00000dd0| 61 72 67 73 20 72 65 63 | 65 6e 74 65 72 20 2d 31 |args rec|enter -1|
|00000de0| 20 73 69 74 2d 66 6f 72 | 20 31 20 61 70 70 6c 79 | sit-for| 1 apply|
|00000df0| 20 6d 68 2d 65 78 65 63 | 2d 63 6d 64 2d 71 75 69 | mh-exec|-cmd-qui|
|00000e00| 65 74 20 6d 68 2d 6c 69 | 73 74 2d 74 6f 2d 73 74 |et mh-li|st-to-st|
|00000e10| 72 69 6e 67 20 22 2d 6e | 6f 76 65 72 62 6f 73 65 |ring "-n|overbose|
|00000e20| 22 20 22 2d 6e 6f 77 61 | 74 63 68 22 5d 20 31 31 |" "-nowa|tch"] 11|
|00000e30| 20 6e 69 6c 20 22 50 22 | 5d 5d 20 34 29 0a 23 40 | nil "P"|]] 4).#@|
|00000e40| 32 32 38 20 43 6c 65 61 | 6e 2d 75 70 20 61 20 64 |228 Clea|n-up a d|
|00000e50| 72 61 66 74 20 6f 72 20 | 61 20 6d 65 73 73 61 67 |raft or |a messag|
|00000e60| 65 20 70 72 65 76 69 6f | 75 73 6c 79 20 73 65 6e |e previo|usly sen|
|00000e70| 74 20 61 6e 64 20 6d 61 | 6b 65 20 69 74 20 72 65 |t and ma|ke it re|
|00000e80| 73 65 6e 64 61 62 6c 65 | 2e 0a 44 65 66 61 75 6c |sendable|..Defaul|
|00000e90| 74 20 69 73 20 74 68 65 | 20 63 75 72 72 65 6e 74 |t is the| current|
|00000ea0| 20 6d 65 73 73 61 67 65 | 2e 0a 54 68 65 20 76 61 | message|..The va|
|00000eb0| 72 69 61 62 6c 65 20 6d | 68 2d 6e 65 77 2d 64 72 |riable m|h-new-dr|
|00000ec0| 61 66 74 2d 63 6c 65 61 | 6e 65 64 2d 68 65 61 64 |aft-clea|ned-head|
|00000ed0| 65 72 73 20 73 70 65 63 | 69 66 69 65 73 20 74 68 |ers spec|ifies th|
|00000ee0| 65 20 68 65 61 64 65 72 | 73 20 74 6f 20 72 65 6d |e header|s to rem|
|00000ef0| 6f 76 65 2e 0a 53 65 65 | 20 61 6c 73 6f 20 64 6f |ove..See| also do|
|00000f00| 63 75 6d 65 6e 74 61 74 | 69 6f 6e 20 66 6f 72 20 |cumentat|ion for |
|00000f10| 60 5c 5b 6d 68 2d 73 65 | 6e 64 5d 27 20 66 75 6e |`\[mh-se|nd]' fun|
|00000f20| 63 74 69 6f 6e 2e 1f 0a | 28 64 65 66 61 6c 69 61 |ction...|(defalia|
|00000f30| 73 20 27 74 6d 2d 6d 68 | 2d 65 2f 65 64 69 74 2d |s 'tm-mh|-e/edit-|
|00000f40| 61 67 61 69 6e 20 23 5b | 28 6d 73 67 29 20 22 c0 |again #[|(msg) ".|
|00000f50| c1 8d 87 22 20 5b 74 61 | 67 20 28 62 79 74 65 2d |..." [ta|g (byte-|
|00000f60| 63 6f 64 65 20 22 08 19 | c2 20 1b c4 1d 0e 06 ab |code "..|. ......|
|00000f70| ce 09 0e 06 6b ab c8 c7 | c8 0e 09 5c 22 1e 5c 6e |....k...|...\".\n|
|00000f80| cb 0e 5c 6e 21 ab 88 cc | cd ce 0e 5c 6e 21 5c 22 |..\n!...|...\n!\"|
|00000f90| 88 cf 0e 09 0e 06 5c 22 | 1e 10 d1 0e 5c 6e 21 71 |......\"|....\n!q|
|00000fa0| 88 d2 1e 13 d4 0e 10 21 | 88 29 0e 10 16 15 d6 15 |.......!|.)......|
|00000fb0| 29 ce 0e 5c 6e 21 88 d7 | d8 c4 d6 23 ab 84 d9 da |)..\n!..|...#....|
|00000fc0| 21 88 0e 5c 6e 29 aa 8e | d2 1e 13 db dc cf 0e 09 |!..\n)..|........|
|00000fd0| 21 c4 23 29 d6 15 1e 1d | 65 62 88 de 65 0e 1f c4 |!.#)....|eb..e...|
|00000fe0| 23 88 0d ab 96 e0 65 64 | 5c 22 1e 21 e2 0e 21 3c |#.....ed|\".!..!<|
|00000ff0| ab 85 0e 21 40 aa 82 0e | 21 21 88 29 e3 20 88 e4 |...!@...|!!.). ..|
|00001000| 0d d6 89 23 88 65 62 88 | e5 0e 1d da 09 c4 89 89 |...#.eb.|........|
|00001010| 89 89 89 0b 26 5c 6e 2c | 87 22 20 5b 6d 68 2d 63 |....&\n,|." [mh-c|
|00001020| 75 72 72 65 6e 74 2d 66 | 6f 6c 64 65 72 20 66 72 |urrent-f|older fr|
|00001030| 6f 6d 2d 66 6f 6c 64 65 | 72 20 63 75 72 72 65 6e |om-folde|r curren|
|00001040| 74 2d 77 69 6e 64 6f 77 | 2d 63 6f 6e 66 69 67 75 |t-window|-configu|
|00001050| 72 61 74 69 6f 6e 20 63 | 6f 6e 66 69 67 20 6e 69 |ration c|onfig ni|
|00001060| 6c 20 63 6f 64 65 2d 63 | 6f 6e 76 65 72 73 69 6f |l code-c|onversio|
|00001070| 6e 20 6d 68 2d 64 72 61 | 66 74 2d 66 6f 6c 64 65 |n mh-dra|ft-folde|
|00001080| 72 20 66 6f 72 6d 61 74 | 20 22 64 72 61 66 74 2d |r format| "draft-|
|00001090| 25 64 22 20 6d 73 67 20 | 6e 61 6d 65 20 67 65 74 |%d" msg |name get|
|000010a0| 2d 62 75 66 66 65 72 20 | 74 68 72 6f 77 20 74 61 |-buffer |throw ta|
|000010b0| 67 20 70 6f 70 2d 74 6f | 2d 62 75 66 66 65 72 20 |g pop-to|-buffer |
|000010c0| 6d 68 2d 6d 73 67 2d 66 | 69 6c 65 6e 61 6d 65 20 |mh-msg-f|ilename |
|000010d0| 66 69 6c 65 6e 61 6d 65 | 20 67 65 74 2d 62 75 66 |filename| get-buf|
|000010e0| 66 65 72 2d 63 72 65 61 | 74 65 20 62 69 6e 61 72 |fer-crea|te binar|
|000010f0| 79 20 63 6f 64 69 6e 67 | 2d 73 79 73 74 65 6d 2d |y coding|-system-|
|00001100| 66 6f 72 2d 72 65 61 64 | 20 69 6e 73 65 72 74 2d |for-read| insert-|
|00001110| 66 69 6c 65 2d 63 6f 6e | 74 65 6e 74 73 20 62 75 |file-con|tents bu|
|00001120| 66 66 65 72 2d 66 69 6c | 65 2d 6e 61 6d 65 20 74 |ffer-fil|e-name t|
|00001130| 20 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 | re-sear|ch-forwa|
|00001140| 72 64 20 22 5e 2d 2b 24 | 22 20 72 65 70 6c 61 63 |rd "^-+$|" replac|
|00001150| 65 2d 6d 61 74 63 68 20 | 22 22 20 6d 68 2d 72 65 |e-match |"" mh-re|
|00001160| 61 64 2d 64 72 61 66 74 | 20 22 63 6c 65 61 6e 2d |ad-draft| "clean-|
|00001170| 75 70 22 20 64 72 61 66 | 74 20 6d 68 2d 63 6c 65 |up" draf|t mh-cle|
|00001180| 61 6e 2d 6d 73 67 2d 68 | 65 61 64 65 72 20 6d 68 |an-msg-h|eader mh|
|00001190| 2d 6e 65 77 2d 64 72 61 | 66 74 2d 63 6c 65 61 6e |-new-dra|ft-clean|
|000011a0| 65 64 2d 68 65 61 64 65 | 72 73 20 64 65 74 65 63 |ed-heade|rs detec|
|000011b0| 74 2d 63 6f 64 69 6e 67 | 2d 72 65 67 69 6f 6e 20 |t-coding|-region |
|000011c0| 63 73 20 73 65 74 2d 62 | 75 66 66 65 72 2d 66 69 |cs set-b|uffer-fi|
|000011d0| 6c 65 2d 63 6f 64 69 6e | 67 2d 73 79 73 74 65 6d |le-codin|g-system|
|000011e0| 20 73 61 76 65 2d 62 75 | 66 66 65 72 20 6d 69 6d | save-bu|ffer mim|
|000011f0| 65 2f 65 64 69 74 2d 61 | 67 61 69 6e 20 6d 68 2d |e/edit-a|gain mh-|
|00001200| 63 6f 6d 70 6f 73 65 2d | 61 6e 64 2d 73 65 6e 64 |compose-|and-send|
|00001210| 2d 6d 61 69 6c 5d 20 31 | 31 29 5d 20 32 20 28 23 |-mail] 1|1)] 2 (#|
|00001220| 24 20 2e 20 33 36 35 32 | 29 20 28 6c 69 73 74 20 |$ . 3652|) (list |
|00001230| 28 6d 68 2d 67 65 74 2d | 6d 73 67 2d 6e 75 6d 20 |(mh-get-|msg-num |
|00001240| 74 29 29 5d 29 0a 23 40 | 32 30 32 20 45 78 74 72 |t))]).#@|202 Extr|
|00001250| 61 63 74 20 61 20 6c 65 | 74 74 65 72 20 72 65 74 |act a le|tter ret|
|00001260| 75 72 6e 65 64 20 62 79 | 20 74 68 65 20 6d 61 69 |urned by| the mai|
|00001270| 6c 20 73 79 73 74 65 6d | 20 61 6e 64 20 6d 61 6b |l system| and mak|
|00001280| 65 20 69 74 20 72 65 2d | 65 64 69 74 61 62 6c 65 |e it re-|editable|
|00001290| 2e 0a 44 65 66 61 75 6c | 74 20 69 73 20 74 68 65 |..Defaul|t is the|
|000012a0| 20 63 75 72 72 65 6e 74 | 20 6d 65 73 73 61 67 65 | current| message|
|000012b0| 2e 20 20 54 68 65 20 76 | 61 72 69 61 62 6c 65 20 |.  The v|ariable |
|000012c0| 6d 68 2d 6e 65 77 2d 64 | 72 61 66 74 2d 63 6c 65 |mh-new-d|raft-cle|
|000012d0| 61 6e 65 64 2d 68 65 61 | 64 65 72 73 0a 67 69 76 |aned-hea|ders.giv|
|000012e0| 65 73 20 74 68 65 20 68 | 65 61 64 65 72 73 20 74 |es the h|eaders t|
|000012f0| 6f 20 63 6c 65 61 6e 20 | 6f 75 74 20 6f 66 20 74 |o clean |out of t|
|00001300| 68 65 20 6f 72 69 67 69 | 6e 61 6c 20 6d 65 73 73 |he origi|nal mess|
|00001310| 61 67 65 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |age...(d|efalias |
|00001320| 27 74 6d 2d 6d 68 2d 65 | 2f 65 78 74 72 61 63 74 |'tm-mh-e|/extract|
|00001330| 2d 72 65 6a 65 63 74 65 | 64 2d 6d 61 69 6c 20 23 |-rejecte|d-mail #|
|00001340| 5b 28 6d 73 67 29 20 22 | 08 c1 20 c2 c3 c4 0d 21 |[(msg) "|.. ....!|
|00001350| c6 23 1e 07 1e 08 1e 09 | c6 16 5c 6e 65 62 88 cb |.#......|..\neb..|
|00001360| cc b0 01 c6 cd 23 ab c6 | 6e ac c3 cb ce c6 cd 23 |.....#..|n......#|
|00001370| ab bc cd cf 94 cf 95 7b | 1e 10 1e 11 cb d2 0e 10 |.......{|........|
|00001380| d3 d4 d5 d6 b0 06 c6 cd | 23 ab 9c 65 60 7c 88 d7 |........|#..e`|..|
|00001390| 65 0e 18 c6 23 88 d9 da | 0e 10 db 51 c6 cd 23 88 |e...#...|...Q..#.|
|000013a0| dc 94 64 7c 88 aa 84 dd | de 21 88 2a aa 9d cb 0e |..d|....|.!.*....|
|000013b0| 1f c6 cd 23 ab 91 e0 c6 | 77 88 65 60 7c 88 d7 65 |...#....|w.e`|..e|
|000013c0| 0e 18 c6 23 88 aa 84 dd | e1 21 88 65 62 88 cb e2 |...#....|.!.eb...|
|000013d0| c6 cd 23 ab 84 e3 e4 21 | 88 e5 c6 cd 89 23 88 65 |..#....!|.....#.e|
|000013e0| 62 88 e6 c6 21 88 e7 0e | 07 e4 0e 09 0d e8 e9 21 |b...!...|.......!|
|000013f0| e8 ea 21 e8 eb 21 c6 89 | 0e 08 26 5c 6e 2b 87 22 |..!..!..|..&\n+."|
|00001400| 20 5b 6d 68 2d 63 75 72 | 72 65 6e 74 2d 66 6f 6c | [mh-cur|rent-fol|
|00001410| 64 65 72 20 63 75 72 72 | 65 6e 74 2d 77 69 6e 64 |der curr|ent-wind|
|00001420| 6f 77 2d 63 6f 6e 66 69 | 67 75 72 61 74 69 6f 6e |ow-confi|guration|
|00001430| 20 6d 68 2d 72 65 61 64 | 2d 64 72 61 66 74 20 22 | mh-read|-draft "|
|00001440| 65 78 74 72 61 63 74 69 | 6f 6e 22 20 6d 68 2d 6d |extracti|on" mh-m|
|00001450| 73 67 2d 66 69 6c 65 6e | 61 6d 65 20 6d 73 67 20 |sg-filen|ame msg |
|00001460| 6e 69 6c 20 64 72 61 66 | 74 20 63 6f 6e 66 69 67 |nil draf|t config|
|00001470| 20 66 72 6f 6d 2d 66 6f | 6c 64 65 72 20 62 75 66 | from-fo|lder buf|
|00001480| 66 65 72 2d 72 65 61 64 | 2d 6f 6e 6c 79 20 72 65 |fer-read|-only re|
|00001490| 2d 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 |-search-|forward |
|000014a0| 22 5e 5c 5c 28 24 5c 5c | 7c 5b 43 63 5d 6f 6e 74 |"^\\($\\||[Cc]ont|
|000014b0| 65 6e 74 2d 5b 54 74 5d | 79 70 65 3a 5b 20 09 5d |ent-[Tt]|ype:[ .]|
|000014c0| 2b 6d 75 6c 74 69 70 61 | 72 74 2f 5c 5c 29 22 20 |+multipa|rt/\\)" |
|000014d0| 74 20 22 62 6f 75 6e 64 | 61 72 79 3d 5c 22 5c 5c |t "bound|ary=\"\\|
|000014e0| 28 5b 5e 5c 22 5d 2b 5c | 5c 29 5c 22 22 20 31 20 |([^\"]+\|\)\"" 1 |
|000014f0| 62 6f 75 6e 64 61 72 79 | 20 63 61 73 65 2d 66 6f |boundary| case-fo|
|00001500| 6c 64 2d 73 65 61 72 63 | 68 20 22 5e 2d 2d 22 20 |ld-searc|h "^--" |
|00001510| 22 5c 6e 22 20 22 63 6f | 6e 74 65 6e 74 2d 74 79 |"\n" "co|ntent-ty|
|00001520| 70 65 3a 5b 20 09 5d 2b | 22 20 22 5c 5c 28 6d 65 |pe:[ .]+|" "\\(me|
|00001530| 73 73 61 67 65 2f 72 66 | 63 38 32 32 5c 5c 7c 74 |ssage/rf|c822\\|t|
|00001540| 65 78 74 2f 72 66 63 38 | 32 32 2d 68 65 61 64 65 |ext/rfc8|22-heade|
|00001550| 72 73 5c 5c 29 5c 6e 22 | 20 22 5c 5c 28 2e 2b 5c |rs\\)\n"| "\\(.+\|
|00001560| 6e 5c 5c 29 2a 5c 6e 22 | 20 6d 68 2d 63 6c 65 61 |n\\)*\n"| mh-clea|
|00001570| 6e 2d 6d 73 67 2d 68 65 | 61 64 65 72 20 6d 68 2d |n-msg-he|ader mh-|
|00001580| 6e 65 77 2d 64 72 61 66 | 74 2d 63 6c 65 61 6e 65 |new-draf|t-cleane|
|00001590| 64 2d 68 65 61 64 65 72 | 73 20 73 65 61 72 63 68 |d-header|s search|
|000015a0| 2d 66 6f 72 77 61 72 64 | 20 22 5c 6e 2d 2d 22 20 |-forward| "\n--" |
|000015b0| 22 2d 2d 5c 6e 22 20 30 | 20 6d 65 73 73 61 67 65 |"--\n" 0| message|
|000015c0| 20 22 53 65 65 6d 73 20 | 6e 6f 20 6d 65 73 73 61 | "Seems |no messa|
|000015d0| 67 65 2f 72 66 63 38 32 | 32 20 70 61 72 74 2e 22 |ge/rfc82|2 part."|
|000015e0| 20 6d 68 2d 72 65 6a 65 | 63 74 65 64 2d 6c 65 74 | mh-reje|cted-let|
|000015f0| 74 65 72 2d 73 74 61 72 | 74 20 22 20 09 5c 6e 22 |ter-star|t " .\n"|
|00001600| 20 22 44 6f 65 73 20 6e | 6f 74 20 61 70 70 65 61 | "Does n|ot appea|
|00001610| 72 20 74 6f 20 62 65 20 | 61 20 72 65 6a 65 63 74 |r to be |a reject|
|00001620| 65 64 20 6c 65 74 74 65 | 72 2e 22 20 22 5e 2d 2b |ed lette|r." "^-+|
|00001630| 24 22 20 72 65 70 6c 61 | 63 65 2d 6d 61 74 63 68 |$" repla|ce-match|
|00001640| 20 22 22 20 6d 69 6d 65 | 2f 65 64 69 74 2d 61 67 | "" mime|/edit-ag|
|00001650| 61 69 6e 20 73 65 74 2d | 62 75 66 66 65 72 2d 6d |ain set-|buffer-m|
|00001660| 6f 64 69 66 69 65 64 2d | 70 20 6d 68 2d 63 6f 6d |odified-|p mh-com|
|00001670| 70 6f 73 65 2d 61 6e 64 | 2d 73 65 6e 64 2d 6d 61 |pose-and|-send-ma|
|00001680| 69 6c 20 6d 68 2d 67 65 | 74 2d 68 65 61 64 65 72 |il mh-ge|t-header|
|00001690| 2d 66 69 65 6c 64 20 22 | 54 6f 3a 22 20 22 46 72 |-field "|To:" "Fr|
|000016a0| 6f 6d 3a 22 20 22 43 63 | 3a 22 5d 20 31 31 20 28 |om:" "Cc|:"] 11 (|
|000016b0| 23 24 20 2e 20 34 36 38 | 34 29 20 28 6c 69 73 74 |#$ . 468|4) (list|
|000016c0| 20 28 6d 68 2d 67 65 74 | 2d 6d 73 67 2d 6e 75 6d | (mh-get|-msg-num|
|000016d0| 20 74 29 29 5d 29 0a 23 | 40 32 32 30 20 46 6f 72 | t))]).#|@220 For|
|000016e0| 77 61 72 64 20 61 20 6d | 65 73 73 61 67 65 20 6f |ward a m|essage o|
|000016f0| 72 20 6d 65 73 73 61 67 | 65 20 73 65 71 75 65 6e |r messag|e sequen|
|00001700| 63 65 20 61 73 20 4d 49 | 4d 45 20 6d 65 73 73 61 |ce as MI|ME messa|
|00001710| 67 65 2f 72 66 63 38 32 | 32 2e 0a 44 65 66 61 75 |ge/rfc82|2..Defau|
|00001720| 6c 74 73 20 74 6f 20 64 | 69 73 70 6c 61 79 65 64 |lts to d|isplayed|
|00001730| 20 6d 65 73 73 61 67 65 | 2e 20 49 66 20 6f 70 74 | message|. If opt|
|00001740| 69 6f 6e 61 6c 20 70 72 | 65 66 69 78 20 61 72 67 |ional pr|efix arg|
|00001750| 75 6d 65 6e 74 20 70 72 | 6f 76 69 64 65 64 2c 0a |ument pr|ovided,.|
|00001760| 74 68 65 6e 20 70 72 6f | 6d 70 74 20 66 6f 72 20 |then pro|mpt for |
|00001770| 74 68 65 20 6d 65 73 73 | 61 67 65 20 73 65 71 75 |the mess|age sequ|
|00001780| 65 6e 63 65 2e 20 53 65 | 65 20 61 6c 73 6f 20 64 |ence. Se|e also d|
|00001790| 6f 63 75 6d 65 6e 74 61 | 74 69 6f 6e 20 66 6f 72 |ocumenta|tion for|
|000017a0| 0a 60 5c 5b 6d 68 2d 73 | 65 6e 64 5d 27 20 66 75 |.`\[mh-s|end]' fu|
|000017b0| 6e 63 74 69 6f 6e 2e 1f | 0a 28 64 65 66 61 6c 69 |nction..|.(defali|
|000017c0| 61 73 20 27 74 6d 2d 6d | 68 2d 65 2f 66 6f 72 77 |as 'tm-m|h-e/forw|
|000017d0| 61 72 64 20 23 5b 28 74 | 6f 20 63 63 20 26 6f 70 |ard #[(t|o cc &op|
|000017e0| 74 69 6f 6e 61 6c 20 6d | 73 67 2d 6f 72 2d 73 65 |tional m|sg-or-se|
|000017f0| 71 29 20 22 08 ac 84 c1 | c2 21 10 0b 1c c5 20 1e |q) "....|.!.... .|
|00001800| 06 c7 c8 0e 09 5c 22 1e | 5c 6e cb 0e 5c 6e 21 ab |.....\".|\n..\n!.|
|00001810| 85 cc cd 21 ab a0 ce cf | d0 d1 d2 0e 13 d4 26 06 |...!....|......&.|
|00001820| 88 d5 d6 0e 5c 6e c2 23 | d7 d8 0e 19 da 0e 1b 24 |....\n.#|.......$|
|00001830| 88 dc dd 21 88 aa 86 d5 | d6 0e 5c 6e dd 23 1e 1e |...!....|..\n.#..|
|00001840| df dd 89 89 e0 e1 e2 e3 | e4 5c 22 21 50 1e 25 1e |........|.\"!P.%.|
|00001850| 26 1e 27 1e 28 1e 29 65 | 62 88 8a 8c 64 62 88 6e |&.'.(.)e|b...db.n|
|00001860| ac 83 ea 63 88 60 89 1e | 2b 89 7d 88 ec ed dd 0c |...c.`..|+.}.....|
|00001870| 08 24 88 ee 60 64 5c 22 | ef 56 ab 83 c2 16 26 f0 |.$..`d\"|.V....&.|
|00001880| f1 dd c2 23 ab c0 ef 94 | ef 95 7b f2 94 f2 95 1e |...#....|..{.....|
|00001890| 33 1e 2b 1e 34 8c 0e 2b | 0e 33 7d 88 0e 2b 0e 33 |3.+.4..+|.3}..+.3|
|000018a0| 7c 88 f5 f6 0e 34 f6 0c | 21 5c 22 21 88 8a f7 64 ||....4..|!\"!...d|
|000018b0| 21 88 f8 20 88 29 64 62 | 88 29 8a 0e 2b 62 88 f9 |!.. .)db|.)..+b..|
|000018c0| e3 e4 5c 22 88 2c aa 39 | 60 64 7c 88 0e 26 ab 87 |..\".,.9|`d|..&..|
|000018d0| fa df 0e 2b 60 23 88 2b | f0 0e 25 21 88 ef 79 88 |...+`#.+|..%!..y.|
|000018e0| 8c 60 64 7d 88 fb fc fd | 21 21 16 28 fb fc fe 21 |.`d}....|!!.(...!|
|000018f0| 21 16 27 29 ff 0e 28 0e | 27 5c 22 1e 40 d7 fe 0e |!.')..(.|'\".@...|
|00001900| 40 5c 22 88 65 62 88 f0 | 0e 25 21 88 81 41 00 79 |@\".eb..|.%!..A.y|
|00001910| 88 81 42 00 20 88 08 a7 | ab 8c 81 43 00 08 81 44 |..B. ...|...C...D|
|00001920| 00 c2 23 88 aa 8e 81 43 | 00 81 45 00 08 21 81 44 |..#....C|..E..!.D|
|00001930| 00 c2 23 88 81 46 00 0e | 1e d6 0c 08 0e 19 0e 40 |..#..F..|.......@|
|00001940| 0e 1b 0e 47 81 48 00 0e | 06 26 5c 6e 2e 5c 6e 87 |...G.H..|.&\n.\n.|
|00001950| 22 20 5b 6d 73 67 2d 6f | 72 2d 73 65 71 20 6d 68 |" [msg-o|r-seq mh|
|00001960| 2d 67 65 74 2d 6d 73 67 | 2d 6e 75 6d 20 74 20 6d |-get-msg|-num t m|
|00001970| 68 2d 63 75 72 72 65 6e | 74 2d 66 6f 6c 64 65 72 |h-curren|t-folder|
|00001980| 20 66 6f 6c 64 65 72 20 | 63 75 72 72 65 6e 74 2d | folder |current-|
|00001990| 77 69 6e 64 6f 77 2d 63 | 6f 6e 66 69 67 75 72 61 |window-c|onfigura|
|000019a0| 74 69 6f 6e 20 63 6f 6e | 66 69 67 20 65 78 70 61 |tion con|fig expa|
|000019b0| 6e 64 2d 66 69 6c 65 2d | 6e 61 6d 65 20 22 64 72 |nd-file-|name "dr|
|000019c0| 61 66 74 22 20 6d 68 2d | 75 73 65 72 2d 70 61 74 |aft" mh-|user-pat|
|000019d0| 68 20 64 72 61 66 74 2d | 6e 61 6d 65 20 66 69 6c |h draft-|name fil|
|000019e0| 65 2d 65 78 69 73 74 73 | 2d 70 20 79 2d 6f 72 2d |e-exists|-p y-or-|
|000019f0| 6e 2d 70 20 22 54 68 65 | 20 66 69 6c 65 20 60 64 |n-p "The| file `d|
|00001a00| 72 61 66 74 27 20 65 78 | 69 73 74 73 2e 20 20 44 |raft' ex|ists.  D|
|00001a10| 69 73 63 61 72 64 20 69 | 74 3f 20 22 20 6d 68 2d |iscard i|t? " mh-|
|00001a20| 65 78 65 63 2d 63 6d 64 | 20 22 63 6f 6d 70 22 20 |exec-cmd| "comp" |
|00001a30| 22 2d 6e 6f 65 64 69 74 | 22 20 22 2d 6e 6f 77 68 |"-noedit|" "-nowh|
|00001a40| 61 74 6e 6f 77 70 72 6f | 63 22 20 22 2d 66 6f 72 |atnowpro|c" "-for|
|00001a50| 6d 22 20 74 6d 2d 6d 68 | 2d 65 2f 66 6f 72 77 63 |m" tm-mh|-e/forwc|
|00001a60| 6f 6d 70 73 20 22 2d 6e | 6f 64 72 61 66 74 66 6f |omps "-n|odraftfo|
|00001a70| 6c 64 65 72 22 20 6d 68 | 2d 72 65 61 64 2d 64 72 |lder" mh|-read-dr|
|00001a80| 61 66 74 20 22 22 20 6d | 68 2d 69 6e 73 65 72 74 |aft "" m|h-insert|
|00001a90| 2d 66 69 65 6c 64 73 20 | 22 54 6f 3a 22 20 74 6f |-fields |"To:" to|
|00001aa0| 20 22 43 63 3a 22 20 63 | 63 20 73 65 74 2d 62 75 | "Cc:" c|c set-bu|
|00001ab0| 66 66 65 72 2d 6d 6f 64 | 69 66 69 65 64 2d 70 20 |ffer-mod|ified-p |
|00001ac0| 6e 69 6c 20 64 72 61 66 | 74 20 22 64 69 67 65 73 |nil draf|t "diges|
|00001ad0| 74 22 20 22 5e 22 20 72 | 65 67 65 78 70 2d 71 75 |t" "^" r|egexp-qu|
|00001ae0| 6f 74 65 20 6d 69 6d 65 | 2d 6d 61 6b 65 2d 74 61 |ote mime|-make-ta|
|00001af0| 67 20 22 6d 65 73 73 61 | 67 65 22 20 22 72 66 63 |g "messa|ge" "rfc|
|00001b00| 38 32 32 22 20 74 61 67 | 2d 72 65 67 65 78 70 20 |822" tag|-regexp |
|00001b10| 6d 75 6c 74 69 70 61 72 | 74 2d 66 6c 61 67 20 6f |multipar|t-flag o|
|00001b20| 72 69 67 2d 73 75 62 6a | 65 63 74 20 6f 72 69 67 |rig-subj|ect orig|
|00001b30| 2d 66 72 6f 6d 20 6d 73 | 75 62 74 79 70 65 20 22 |-from ms|ubtype "|
|00001b40| 5c 6e 22 20 62 65 67 20 | 6d 68 2d 65 78 65 63 2d |\n" beg |mh-exec-|
|00001b50| 63 6d 64 2d 6f 75 74 70 | 75 74 20 22 70 69 63 6b |cmd-outp|ut "pick|
|00001b60| 22 20 63 6f 75 6e 74 2d | 6c 69 6e 65 73 20 31 20 |" count-|lines 1 |
|00001b70| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|00001b80| 64 20 22 5e 5c 5c 28 5b | 30 2d 39 5d 2b 5c 5c 29 |d "^\\([|0-9]+\\)|
|00001b90| 5c 6e 22 20 30 20 65 6e | 64 20 66 6f 72 77 2d 6d |\n" 0 en|d forw-m|
|00001ba0| 73 67 20 69 6e 73 65 72 | 74 2d 66 69 6c 65 2d 63 |sg inser|t-file-c|
|00001bb0| 6f 6e 74 65 6e 74 73 20 | 6d 68 2d 65 78 70 61 6e |ontents |mh-expan|
|00001bc0| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 20 70 75 73 68 |d-file-n|ame push|
|00001bd0| 2d 6d 61 72 6b 20 6d 69 | 6d 65 2d 65 64 69 74 6f |-mark mi|me-edito|
|00001be0| 72 2f 69 6e 73 65 72 74 | 65 64 2d 6d 65 73 73 61 |r/insert|ed-messa|
|00001bf0| 67 65 2d 66 69 6c 74 65 | 72 20 6d 69 6d 65 2d 65 |ge-filte|r mime-e|
|00001c00| 64 69 74 6f 72 2f 69 6e | 73 65 72 74 2d 74 61 67 |ditor/in|sert-tag|
|00001c10| 20 6d 69 6d 65 2d 65 64 | 69 74 6f 72 2f 65 6e 63 | mime-ed|itor/enc|
|00001c20| 6c 6f 73 65 2d 72 65 67 | 69 6f 6e 20 6d 69 6d 65 |lose-reg|ion mime|
|00001c30| 2d 65 77 6f 72 64 2f 64 | 65 63 6f 64 65 2d 73 74 |-eword/d|ecode-st|
|00001c40| 72 69 6e 67 20 6d 68 2d | 67 65 74 2d 68 65 61 64 |ring mh-|get-head|
|00001c50| 65 72 2d 66 69 65 6c 64 | 20 22 46 72 6f 6d 3a 22 |er-field| "From:"|
|00001c60| 20 22 53 75 62 6a 65 63 | 74 3a 22 20 6d 68 2d 66 | "Subjec|t:" mh-f|
|00001c70| 6f 72 77 61 72 64 65 64 | 2d 6c 65 74 74 65 72 2d |orwarded|-letter-|
|00001c80| 73 75 62 6a 65 63 74 20 | 66 6f 72 77 2d 73 75 62 |subject |forw-sub|
|00001c90| 6a 65 63 74 20 2d 31 20 | 64 65 6c 65 74 65 2d 6f |ject -1 |delete-o|
|00001ca0| 74 68 65 72 2d 77 69 6e | 64 6f 77 73 20 6d 68 2d |ther-win|dows mh-|
|00001cb0| 61 64 64 2d 6d 73 67 73 | 2d 74 6f 2d 73 65 71 20 |add-msgs|-to-seq |
|00001cc0| 66 6f 72 77 61 72 64 65 | 64 20 6d 68 2d 73 65 71 |forwarde|d mh-seq|
|00001cd0| 2d 74 6f 2d 6d 73 67 73 | 20 6d 68 2d 63 6f 6d 70 |-to-msgs| mh-comp|
|00001ce0| 6f 73 65 2d 61 6e 64 2d | 73 65 6e 64 2d 6d 61 69 |ose-and-|send-mai|
|00001cf0| 6c 20 6d 68 2d 6e 6f 74 | 65 2d 66 6f 72 77 20 22 |l mh-not|e-forw "|
|00001d00| 46 6f 72 77 61 72 64 65 | 64 3a 22 5d 20 31 32 20 |Forwarde|d:"] 12 |
|00001d10| 28 23 24 20 2e 20 35 38 | 35 33 29 20 28 6c 69 73 |(#$ . 58|53) (lis|
|00001d20| 74 20 28 6d 68 2d 72 65 | 61 64 2d 61 64 64 72 65 |t (mh-re|ad-addre|
|00001d30| 73 73 20 22 54 6f 3a 20 | 22 29 20 28 6d 68 2d 72 |ss "To: |") (mh-r|
|00001d40| 65 61 64 2d 61 64 64 72 | 65 73 73 20 22 43 63 3a |ead-addr|ess "Cc:|
|00001d50| 20 22 29 20 28 69 66 20 | 63 75 72 72 65 6e 74 2d | ") (if |current-|
|00001d60| 70 72 65 66 69 78 2d 61 | 72 67 20 28 6d 68 2d 72 |prefix-a|rg (mh-r|
|00001d70| 65 61 64 2d 73 65 71 2d | 64 65 66 61 75 6c 74 20 |ead-seq-|default |
|00001d80| 22 46 6f 72 77 61 72 64 | 22 20 74 29 20 28 6d 68 |"Forward|" t) (mh|
|00001d90| 2d 67 65 74 2d 6d 73 67 | 2d 6e 75 6d 20 74 29 29 |-get-msg|-num t))|
|00001da0| 29 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |)]).(byt|e-code "|
|00001db0| c0 c1 21 ac 86 c2 c3 4d | 88 aa 95 c4 c5 21 ab 8b |..!....M|.....!..|
|00001dc0| 0d c6 99 ab 86 c2 c7 4d | 88 aa 85 c8 c2 c9 5c 22 |.......M|......\"|
|00001dd0| 88 c0 87 22 20 5b 66 65 | 61 74 75 72 65 70 20 6d |..." [fe|aturep m|
|00001de0| 68 2d 75 74 69 6c 73 20 | 74 6d 2d 6d 68 2d 65 3a |h-utils |tm-mh-e:|
|00001df0| 3a 69 6e 73 65 72 74 2d | 6c 65 74 74 65 72 20 23 |:insert-|letter #|
|00001e00| 5b 28 66 6f 6c 64 65 72 | 20 6e 75 6d 62 65 72 20 |[(folder| number |
|00001e10| 76 65 72 62 61 74 69 6d | 29 20 22 c0 09 5c 6e 0b |verbatim|) "..\n.|
|00001e20| 23 87 22 20 5b 6d 68 2d | 69 6e 73 65 72 74 2d 6c |#." [mh-|insert-l|
|00001e30| 65 74 74 65 72 20 76 65 | 72 62 61 74 69 6d 20 66 |etter ve|rbatim f|
|00001e40| 6f 6c 64 65 72 20 6e 75 | 6d 62 65 72 5d 20 34 5d |older nu|mber] 4]|
|00001e50| 20 62 6f 75 6e 64 70 20 | 6d 68 2d 65 2d 76 65 72 | boundp |mh-e-ver|
|00001e60| 73 69 6f 6e 20 22 35 22 | 20 23 5b 28 66 6f 6c 64 |sion "5"| #[(fold|
|00001e70| 65 72 20 6e 75 6d 62 65 | 72 20 76 65 72 62 61 74 |er numbe|r verbat|
|00001e80| 69 6d 29 20 22 c0 09 5c | 6e 0b 23 87 22 20 5b 6d |im) "..\|n.#." [m|
|00001e90| 68 2d 69 6e 73 65 72 74 | 2d 6c 65 74 74 65 72 20 |h-insert|-letter |
|00001ea0| 6e 75 6d 62 65 72 20 66 | 6f 6c 64 65 72 20 76 65 |number f|older ve|
|00001eb0| 72 62 61 74 69 6d 5d 20 | 34 5d 20 64 65 66 61 6c |rbatim] |4] defal|
|00001ec0| 69 61 73 20 6d 68 2d 69 | 6e 73 65 72 74 2d 6c 65 |ias mh-i|nsert-le|
|00001ed0| 74 74 65 72 5d 20 33 29 | 0a 23 40 33 32 20 49 6e |tter] 3)|.#@32 In|
|00001ee0| 74 65 72 66 61 63 65 20 | 74 6f 20 6d 68 2d 69 6e |terface |to mh-in|
|00001ef0| 73 65 72 74 2d 6c 65 74 | 74 65 72 2e 1f 0a 28 64 |sert-let|ter...(d|
|00001f00| 65 66 61 6c 69 61 73 20 | 27 74 6d 2d 6d 68 2d 65 |efalias |'tm-mh-e|
|00001f10| 2f 69 6e 73 65 72 74 2d | 6c 65 74 74 65 72 20 23 |/insert-|letter #|
|00001f20| 5b 28 76 65 72 62 61 74 | 69 6d 29 20 22 c0 c1 5c |[(verbat|im) "..\|
|00001f30| 6e 3b ab 89 c3 c4 5c 6e | 5c 22 ab 83 5c 6e aa 81 |n;....\n|\"..\n..|
|00001f40| c5 c6 23 1e 07 c8 c9 0e | 07 5c 22 1e 5c 6e cb 0e |..#.....|.\".\n..|
|00001f50| 07 0e 5c 6e 0e 0c 23 2a | 87 22 20 5b 6d 68 2d 70 |..\n..#*|." [mh-p|
|00001f60| 72 6f 6d 70 74 2d 66 6f | 72 2d 66 6f 6c 64 65 72 |rompt-fo|r-folder|
|00001f70| 20 22 4d 65 73 73 61 67 | 65 20 66 72 6f 6d 22 20 | "Messag|e from" |
|00001f80| 6d 68 2d 73 65 6e 74 2d | 66 72 6f 6d 2d 66 6f 6c |mh-sent-|from-fol|
|00001f90| 64 65 72 20 73 74 72 69 | 6e 67 2d 6d 61 74 63 68 |der stri|ng-match|
|00001fa0| 20 22 5e 5c 5c 2b 22 20 | 22 2b 69 6e 62 6f 78 22 | "^\\+" |"+inbox"|
|00001fb0| 20 6e 69 6c 20 66 6f 6c | 64 65 72 20 74 6d 2d 6d | nil fol|der tm-m|
|00001fc0| 68 2d 65 2f 70 72 6f 6d | 70 74 2d 66 6f 72 2d 6d |h-e/prom|pt-for-m|
|00001fd0| 65 73 73 61 67 65 20 22 | 4d 65 73 73 61 67 65 20 |essage "|Message |
|00001fe0| 6e 75 6d 62 65 72 3a 20 | 22 20 6e 75 6d 62 65 72 |number: |" number|
|00001ff0| 20 74 6d 2d 6d 68 2d 65 | 3a 3a 69 6e 73 65 72 74 | tm-mh-e|::insert|
|00002000| 2d 6c 65 74 74 65 72 20 | 76 65 72 62 61 74 69 6d |-letter |verbatim|
|00002010| 5d 20 35 20 28 23 24 20 | 2e 20 37 39 30 32 29 20 |] 5 (#$ |. 7902) |
|00002020| 22 50 22 5d 29 0a 23 40 | 36 32 39 20 49 6e 73 65 |"P"]).#@|629 Inse|
|00002030| 72 74 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 6d |rt the c|urrent m|
|00002040| 65 73 73 61 67 65 20 69 | 6e 74 6f 20 74 68 65 20 |essage i|nto the |
|00002050| 64 72 61 66 74 20 62 75 | 66 66 65 72 2e 0a 54 68 |draft bu|ffer..Th|
|00002060| 69 73 20 66 75 6e 63 74 | 69 6f 6e 20 6d 61 6b 65 |is funct|ion make|
|00002070| 73 20 6e 65 77 20 73 68 | 6f 77 2d 62 75 66 66 65 |s new sh|ow-buffe|
|00002080| 72 20 66 72 6f 6d 20 61 | 72 74 69 63 6c 65 2d 62 |r from a|rticle-b|
|00002090| 75 66 66 65 72 20 74 6f | 20 64 69 73 61 62 6c 65 |uffer to| disable|
|000020a0| 0a 76 61 72 69 61 62 6c | 65 20 60 6d 69 6d 65 2d |.variabl|e `mime-|
|000020b0| 76 69 65 77 65 72 2f 70 | 6c 61 69 6e 2d 74 65 78 |viewer/p|lain-tex|
|000020c0| 74 2d 70 72 65 76 69 65 | 77 2d 68 6f 6f 6b 27 2e |t-previe|w-hook'.|
|000020d0| 20 49 66 20 79 6f 75 20 | 64 6f 6e 27 74 20 77 61 | If you |don't wa|
|000020e0| 6e 74 20 74 6f 0a 75 73 | 65 20 74 65 78 74 20 66 |nt to.us|e text f|
|000020f0| 69 6c 74 65 72 73 20 66 | 6f 72 20 72 65 70 6c 79 |ilters f|or reply|
|00002100| 69 6e 67 20 6d 65 73 73 | 61 67 65 2c 20 70 6c 65 |ing mess|age, ple|
|00002110| 61 73 65 20 73 65 74 20 | 69 74 20 74 6f 0a 60 74 |ase set |it to.`t|
|00002120| 6d 2d 6d 68 2d 65 2f 6d | 65 73 73 61 67 65 2d 79 |m-mh-e/m|essage-y|
|00002130| 61 6e 6b 2d 66 75 6e 63 | 74 69 6f 6e 27 2e 0a 50 |ank-func|tion'..P|
|00002140| 72 65 66 69 78 20 65 61 | 63 68 20 6e 6f 6e 2d 62 |refix ea|ch non-b|
|00002150| 6c 61 6e 6b 20 6c 69 6e | 65 20 69 6e 20 74 68 65 |lank lin|e in the|
|00002160| 20 6d 65 73 73 61 67 65 | 20 77 69 74 68 20 74 68 | message| with th|
|00002170| 65 20 73 74 72 69 6e 67 | 20 69 6e 0a 60 6d 68 2d |e string| in.`mh-|
|00002180| 69 6e 73 2d 62 75 66 2d | 70 72 65 66 69 78 27 2e |ins-buf-|prefix'.|
|00002190| 20 54 68 65 20 65 6e 74 | 69 72 65 20 6d 65 73 73 | The ent|ire mess|
|000021a0| 61 67 65 20 77 69 6c 6c | 20 62 65 20 69 6e 73 65 |age will| be inse|
|000021b0| 72 74 65 64 20 69 66 0a | 60 6d 68 2d 79 61 6e 6b |rted if.|`mh-yank|
|000021c0| 2d 66 72 6f 6d 2d 73 74 | 61 72 74 2d 6f 66 2d 6d |-from-st|art-of-m|
|000021d0| 73 67 27 20 69 73 20 6e | 6f 6e 2d 6e 69 6c 2e 20 |sg' is n|on-nil. |
|000021e0| 49 66 20 74 68 69 73 20 | 76 61 72 69 61 62 6c 65 |If this |variable|
|000021f0| 20 69 73 20 6e 69 6c 2c | 20 74 68 65 0a 70 6f 72 | is nil,| the.por|
|00002200| 74 69 6f 6e 20 6f 66 20 | 74 68 65 20 6d 65 73 73 |tion of |the mess|
|00002210| 61 67 65 20 66 6f 6c 6c | 6f 77 69 6e 67 20 74 68 |age foll|owing th|
|00002220| 65 20 70 6f 69 6e 74 20 | 77 69 6c 6c 20 62 65 20 |e point |will be |
|00002230| 79 61 6e 6b 65 64 2e 20 | 20 49 66 0a 60 6d 68 2d |yanked. | If.`mh-|
|00002240| 64 65 6c 65 74 65 2d 79 | 61 6e 6b 65 64 2d 6d 73 |delete-y|anked-ms|
|00002250| 67 2d 77 69 6e 64 6f 77 | 27 20 69 73 20 6e 6f 6e |g-window|' is non|
|00002260| 2d 6e 69 6c 2c 20 61 6e | 79 20 77 69 6e 64 6f 77 |-nil, an|y window|
|00002270| 20 64 69 73 70 6c 61 79 | 69 6e 67 20 74 68 65 0a | display|ing the.|
|00002280| 79 61 6e 6b 65 64 20 6d | 65 73 73 61 67 65 20 77 |yanked m|essage w|
|00002290| 69 6c 6c 20 62 65 20 64 | 65 6c 65 74 65 64 2e 1f |ill be d|eleted..|
|000022a0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 74 6d 2d 6d |.(defali|as 'tm-m|
|000022b0| 68 2d 65 2f 79 61 6e 6b | 2d 63 75 72 2d 6d 73 67 |h-e/yank|-cur-msg|
|000022c0| 2d 77 69 74 68 2d 6e 6f | 2d 66 69 6c 74 65 72 20 |-with-no|-filter |
|000022d0| 23 5b 6e 69 6c 20 22 08 | ab c6 09 ab c3 60 70 1a |#[nil ".|.....`p.|
|000022e0| 1b 08 71 88 0c ab 85 c5 | 0e 06 21 88 0e 06 71 88 |..q.....|..!...q.|
|000022f0| 0e 07 ab 90 c8 89 1e 09 | 1e 5c 6e cb 8b cc 0e 09 |........|.\n.....|
|00002300| 21 88 2a aa 82 cd 20 1e | 0e 5c 6e 71 88 8c 0b 89 |!.*... .|.\nq....|
|00002310| 7d 88 cf 20 88 0e 0e 63 | 88 d0 0e 11 21 88 d2 63 |}.. ...c|....!..c|
|00002320| 2c 87 d3 d4 21 87 22 20 | 5b 6d 68 2d 73 65 6e 74 |,...!." |[mh-sent|
|00002330| 2d 66 72 6f 6d 2d 66 6f | 6c 64 65 72 20 6d 68 2d |-from-fo|lder mh-|
|00002340| 73 65 6e 74 2d 66 72 6f | 6d 2d 6d 73 67 20 74 6f |sent-fro|m-msg to|
|00002350| 2d 62 75 66 66 65 72 20 | 74 6f 2d 70 6f 69 6e 74 |-buffer |to-point|
|00002360| 20 6d 68 2d 64 65 6c 65 | 74 65 2d 79 61 6e 6b 65 | mh-dele|te-yanke|
|00002370| 64 2d 6d 73 67 2d 77 69 | 6e 64 6f 77 20 64 65 6c |d-msg-wi|ndow del|
|00002380| 65 74 65 2d 77 69 6e 64 | 6f 77 73 2d 6f 6e 20 6d |ete-wind|ows-on m|
|00002390| 68 2d 73 68 6f 77 2d 62 | 75 66 66 65 72 20 6d 69 |h-show-b|uffer mi|
|000023a0| 6d 65 3a 3a 70 72 65 76 | 69 65 77 2f 61 72 74 69 |me::prev|iew/arti|
|000023b0| 63 6c 65 2d 62 75 66 66 | 65 72 20 6e 69 6c 20 62 |cle-buff|er nil b|
|000023c0| 75 66 20 6d 69 6d 65 2d | 76 69 65 77 65 72 2f 70 |uf mime-|viewer/p|
|000023d0| 6c 61 69 6e 2d 74 65 78 | 74 2d 70 72 65 76 69 65 |lain-tex|t-previe|
|000023e0| 77 2d 68 6f 6f 6b 20 28 | 28 62 79 74 65 2d 63 6f |w-hook (|(byte-co|
|000023f0| 64 65 20 22 08 71 88 c1 | 20 12 c3 20 87 22 20 5b |de ".q..| .. ." [|
|00002400| 6d 69 6d 65 3a 3a 70 72 | 65 76 69 65 77 2f 61 72 |mime::pr|eview/ar|
|00002410| 74 69 63 6c 65 2d 62 75 | 66 66 65 72 20 6d 69 6d |ticle-bu|ffer mim|
|00002420| 65 2f 76 69 65 77 65 72 | 2d 6d 6f 64 65 20 62 75 |e/viewer|-mode bu|
|00002430| 66 20 62 75 66 66 65 72 | 2d 73 74 72 69 6e 67 5d |f buffer|-string]|
|00002440| 20 31 29 29 20 6b 69 6c | 6c 2d 62 75 66 66 65 72 | 1)) kil|l-buffer|
|00002450| 20 62 75 66 66 65 72 2d | 73 74 72 69 6e 67 20 6d | buffer-|string m|
|00002460| 68 2d 69 6e 73 2d 73 74 | 72 20 70 75 73 68 2d 6d |h-ins-st|r push-m|
|00002470| 61 72 6b 20 6d 68 2d 69 | 6e 73 65 72 74 2d 70 72 |ark mh-i|nsert-pr|
|00002480| 65 66 69 78 2d 73 74 72 | 69 6e 67 20 6d 68 2d 69 |efix-str|ing mh-i|
|00002490| 6e 73 2d 62 75 66 2d 70 | 72 65 66 69 78 20 22 5c |ns-buf-p|refix "\|
|000024a0| 6e 22 20 65 72 72 6f 72 | 20 22 54 68 65 72 65 20 |n" error| "There |
|000024b0| 69 73 20 6e 6f 20 63 75 | 72 72 65 6e 74 20 6d 65 |is no cu|rrent me|
|000024c0| 73 73 61 67 65 22 5d 20 | 33 20 28 23 24 20 2e 20 |ssage"] |3 (#$ . |
|000024d0| 38 32 33 36 29 20 6e 69 | 6c 5d 29 0a 23 40 31 33 |8236) ni|l]).#@13|
|000024e0| 36 20 49 6e 73 65 72 74 | 20 74 68 65 20 63 75 72 |6 Insert| the cur|
|000024f0| 72 65 6e 74 20 6d 65 73 | 73 61 67 65 20 69 6e 74 |rent mes|sage int|
|00002500| 6f 20 74 68 65 20 64 72 | 61 66 74 20 62 75 66 66 |o the dr|aft buff|
|00002510| 65 72 2e 0a 49 74 20 75 | 73 65 73 20 76 61 72 69 |er..It u|ses vari|
|00002520| 61 62 6c 65 20 60 74 6d | 2d 6d 68 2d 65 2f 6d 65 |able `tm|-mh-e/me|
|00002530| 73 73 61 67 65 2d 79 61 | 6e 6b 2d 66 75 6e 63 74 |ssage-ya|nk-funct|
|00002540| 69 6f 6e 27 0a 74 6f 20 | 73 65 6c 65 63 74 20 6d |ion'.to |select m|
|00002550| 65 73 73 61 67 65 20 79 | 61 6e 6b 69 6e 67 20 66 |essage y|anking f|
|00002560| 75 6e 63 74 69 6f 6e 2e | 1f 0a 28 64 65 66 61 6c |unction.|..(defal|
|00002570| 69 61 73 20 27 74 6d 2d | 6d 68 2d 65 2f 79 61 6e |ias 'tm-|mh-e/yan|
|00002580| 6b 2d 63 75 72 72 65 6e | 74 2d 6d 65 73 73 61 67 |k-curren|t-messag|
|00002590| 65 20 23 5b 6e 69 6c 20 | 22 08 09 19 89 18 3b ac |e #[nil |".....;.|
|000025a0| af c2 c3 21 ab aa c4 0b | 21 ab a5 c5 08 21 ab a0 |...!....|!....!..|
|000025b0| c2 c6 21 ab 91 8a c7 20 | 88 0e 06 89 10 71 88 0e |..!.... |.....q..|
|000025c0| 06 16 08 29 aa 8a 8a 0b | 10 0b 71 88 70 16 08 29 |...)....|..q.p..)|
|000025d0| 0e 09 20 2a 87 22 20 5b | 6d 68 2d 73 65 6e 74 2d |.. *." [|mh-sent-|
|000025e0| 66 72 6f 6d 2d 66 6f 6c | 64 65 72 20 6d 68 2d 73 |from-fol|der mh-s|
|000025f0| 65 6e 74 2d 66 72 6f 6d | 2d 6d 73 67 20 62 6f 75 |ent-from|-msg bou|
|00002600| 6e 64 70 20 67 6e 75 73 | 2d 61 72 74 69 63 6c 65 |ndp gnus|-article|
|00002610| 2d 62 75 66 66 65 72 20 | 67 65 74 2d 62 75 66 66 |-buffer |get-buff|
|00002620| 65 72 20 62 75 66 66 65 | 72 70 20 67 6e 75 73 2d |er buffe|rp gnus-|
|00002630| 61 72 74 69 63 6c 65 2d | 63 6f 70 79 20 67 6e 75 |article-|copy gnu|
|00002640| 73 2d 63 6f 70 79 2d 61 | 72 74 69 63 6c 65 2d 62 |s-copy-a|rticle-b|
|00002650| 75 66 66 65 72 20 6d 68 | 2d 73 68 6f 77 2d 62 75 |uffer mh|-show-bu|
|00002660| 66 66 65 72 20 74 6d 2d | 6d 68 2d 65 2f 6d 65 73 |ffer tm-|mh-e/mes|
|00002670| 73 61 67 65 2d 79 61 6e | 6b 2d 66 75 6e 63 74 69 |sage-yan|k-functi|
|00002680| 6f 6e 5d 20 33 20 28 23 | 24 20 2e 20 39 34 34 32 |on] 3 (#|$ . 9442|
|00002690| 29 20 6e 69 6c 5d 29 0a | 28 62 79 74 65 2d 63 6f |) nil]).|(byte-co|
|000026a0| 64 65 20 22 c0 c1 c2 0b | 23 88 c0 c4 c5 0b 23 88 |de "....|#.....#.|
|000026b0| c6 c7 c8 5c 22 88 c9 ca | 21 88 cb cc 21 87 22 20 |...\"...|!...!." |
|000026c0| 5b 73 75 62 73 74 69 74 | 75 74 65 2d 6b 65 79 2d |[substit|ute-key-|
|000026d0| 64 65 66 69 6e 69 74 69 | 6f 6e 20 6d 68 2d 79 61 |definiti|on mh-ya|
|000026e0| 6e 6b 2d 63 75 72 2d 6d | 73 67 20 74 6d 2d 6d 68 |nk-cur-m|sg tm-mh|
|000026f0| 2d 65 2f 79 61 6e 6b 2d | 63 75 72 72 65 6e 74 2d |-e/yank-|current-|
|00002700| 6d 65 73 73 61 67 65 20 | 6d 68 2d 6c 65 74 74 65 |message |mh-lette|
|00002710| 72 2d 6d 6f 64 65 2d 6d | 61 70 20 6d 68 2d 69 6e |r-mode-m|ap mh-in|
|00002720| 73 65 72 74 2d 6c 65 74 | 74 65 72 20 74 6d 2d 6d |sert-let|ter tm-m|
|00002730| 68 2d 65 2f 69 6e 73 65 | 72 74 2d 6c 65 74 74 65 |h-e/inse|rt-lette|
|00002740| 72 20 63 61 6c 6c 2d 61 | 66 74 65 72 2d 6c 6f 61 |r call-a|fter-loa|
|00002750| 64 65 64 20 6d 75 2d 63 | 69 74 65 20 23 5b 6e 69 |ded mu-c|ite #[ni|
|00002760| 6c 20 22 c0 c1 c2 c3 23 | 87 22 20 5b 73 65 74 2d |l "....#|." [set-|
|00002770| 61 6c 69 73 74 20 6d 75 | 2d 63 69 74 65 2f 67 65 |alist mu|-cite/ge|
|00002780| 74 2d 66 69 65 6c 64 2d | 76 61 6c 75 65 2d 6d 65 |t-field-|value-me|
|00002790| 74 68 6f 64 2d 61 6c 69 | 73 74 20 6d 68 2d 6c 65 |thod-ali|st mh-le|
|000027a0| 74 74 65 72 2d 6d 6f 64 | 65 20 23 5b 28 6e 61 6d |tter-mod|e #[(nam|
|000027b0| 65 29 20 22 08 3b ad 9d | 09 a7 ad 99 8a 08 71 88 |e) ".;..|......q.|
|000027c0| 5c 6e 71 88 c3 c4 21 ab | 88 c5 0c 21 ab 83 0c 71 |\nq...!.|...!...q|
|000027d0| 88 c6 0e 07 21 29 87 22 | 20 5b 6d 68 2d 73 65 6e |....!)."| [mh-sen|
|000027e0| 74 2d 66 72 6f 6d 2d 66 | 6f 6c 64 65 72 20 6d 68 |t-from-f|older mh|
|000027f0| 2d 73 65 6e 74 2d 66 72 | 6f 6d 2d 6d 73 67 20 6d |-sent-fr|om-msg m|
|00002800| 68 2d 73 68 6f 77 2d 62 | 75 66 66 65 72 20 62 6f |h-show-b|uffer bo|
|00002810| 75 6e 64 70 20 6d 69 6d | 65 3a 3a 70 72 65 76 69 |undp mim|e::previ|
|00002820| 65 77 2f 61 72 74 69 63 | 6c 65 2d 62 75 66 66 65 |ew/artic|le-buffe|
|00002830| 72 20 62 75 66 66 65 72 | 70 20 73 74 64 31 31 2d |r buffer|p std11-|
|00002840| 66 69 65 6c 64 2d 62 6f | 64 79 20 6e 61 6d 65 5d |field-bo|dy name]|
|00002850| 20 32 5d 5d 20 34 5d 20 | 70 72 6f 76 69 64 65 20 | 2]] 4] |provide |
|00002860| 74 6d 68 2d 63 6f 6d 70 | 20 72 65 71 75 69 72 65 |tmh-comp| require|
|00002870| 20 74 6d 2d 6d 68 2d 65 | 5d 20 34 29 0a          | tm-mh-e|] 4).   |
+--------+-------------------------+-------------------------+--------+--------+